home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / crossmap < prev    next >
Encoding:
Text File  |  1992-09-04  |  491 b   |  20 lines  |  [TEXT/JV01]
  1. to crossmap :cm.template [:cm.lists] 2
  2. if emptyp bf :cm.lists [op cm1 first :cm.lists 1 []]
  3. op cm1 :cm.lists 1 []
  4. end
  5.  
  6. to cm1 :cm.lists :cm.level :template.vars
  7. if emptyp :cm.lists [op (list apply :cm.template :template.vars)]
  8. op cm2 first :cm.lists
  9. end
  10.  
  11. to cm2 :cm.thislist
  12. if emptyp :cm.thislist [op []]
  13. local :cm.level
  14. make :cm.level first :cm.thislist
  15. op se (cm1 bf :cm.lists :cm.level+1 lput first :cm.thislist :template.vars) ~
  16.       (cm2 bf :cm.thislist)
  17. end
  18.  
  19. bury [crossmap cm1 cm2]
  20.